home *** CD-ROM | disk | FTP | other *** search
/ Digital Photo Album: Houko Kuwashima / Digital Photo Album: Houko Kuwashima.iso / inter.dxr / 00010.ls < prev    next >
Encoding:
Text File  |  1998-10-08  |  390 b   |  15 lines
  1. on frameactions
  2.   global interdirection
  3.   if interdirection <> 0 then
  4.     puppetSprite(30, 1)
  5.     set randomcastnum to random(86) + 1
  6.     if randomcastnum < 10 then
  7.       set randomcastnum to "0" & randomcastnum
  8.     end if
  9.     set randomphoto to "INT_PR" & randomcastnum & ".PIC"
  10.     set the castNum of sprite 30 to member randomphoto
  11.   end if
  12.   set interdirection to 0
  13.   updateStage()
  14. end
  15.